leaflet_tiles.Rmdlibrary(rstatatools) #> Registered S3 method overwritten by 'quantmod': #> method from #> as.zoo.data.frame zoo
locsf is a sf class object.
library(leaflet) library(leafem) library(rstatatools) library(sf) #> Linking to GEOS 3.8.1, GDAL 3.1.2, PROJ 7.1.0 leaflet() %>% tdtmap(type = "terrain") %>% addFeatures(locsf, weight = 0.1, radius = 0.1)
To add annotion on Tiandi map, use:
leaflet() %>% tdtmap(type = "terrain") %>% tdtmap_annotion() %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
leaflet() %>% gdmap() %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Annotion:
leaflet() %>% gdmap(type = "satellite") %>% gdmap_annotion() %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Normal:
leaflet() %>% geoqmap() %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
PurplishBlue:
leaflet() %>% geoqmap(type = "PurplishBlue") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Gray:
leaflet() %>% geoqmap(type = "Gray") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Warm:
leaflet() %>% geoqmap(type = "Warm") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
ENG:
leaflet() %>% geoqmap(type = "ENG") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
LabelAndBoundaryLine:
leaflet() %>% geoqmap(type = "LabelAndBoundaryLine") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Subway:
leaflet() %>% geoqmap(type = "Subway") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
WorldHydroMap:
leaflet() %>% geoqmap(type = "WorldHydroMap") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Gray_OnlySymbol:
leaflet() %>% geoqmap(type = "Gray_OnlySymbol") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Gray_Reference:
leaflet() %>% geoqmap(type = "Gray_Reference") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
PurplishBlue_OnlySymbol:
leaflet() %>% geoqmap(type = "PurplishBlue_OnlySymbol") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
PurplishBlue_Reference:
leaflet() %>% geoqmap(type = "PurplishBlue_Reference") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Warm_OnlySymbol:
leaflet() %>% geoqmap(type = "Warm_OnlySymbol") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")
Warm_Reference:
leaflet() %>% geoqmap(type = "Warm_Reference") %>% addFeatures(locsf, weight = 0.1, radius = 0.1, color = "red")